home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / hp100b1.zip / TESTEXT.SLT < prev    next >
Text File  |  1991-03-01  |  665b  |  22 lines

  1. // Sample extension script for remote (non-local) mode (TESTEXT.SLT)
  2. // Copyright (C) CompuProducts Ent. 1990 
  3. // Author: Jason H. Tepperman
  4. //
  5. // Notice the carrier checking.  Since this is a remote script we need it, but
  6. // in a local mode script we wouldn't.  This is the main reason we have the
  7. // sans 'L' and the 'L' versions of the two scripts.  As per spec, this is 
  8. // the sans 'L' version
  9.  
  10.  
  11. main(){
  12.   
  13.   if (!carrier()) {
  14.      pstra("Carrier is not detected.  Use the local extension instead ...",12);
  15.      prints("^M^J");
  16.      return;
  17.   }
  18.   
  19.   cputs("^M^JThis is the remote version of the sample extension script ...^M^J^M^J");
  20.   
  21. }
  22.